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FACILITY: FIIACP Structure Level 1 

i ABSTRACT: 


This routine converts a file name string into the 
RAD-50 mame block format. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 
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AUTHOR: Andrew C. Goldstein, CREATION DATE: 2-Jan-1977 17:06 
i MODIFIED BY: 


v03-004 CDS0003 Christian D. Saether 22-Jan-1984 
Use longword addressing on external FIL$ routine. 


v03-003 CDS0002 Christian D. geether 6-Dec-1983 
Change LIBS references to FILS. 
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16-Sep-1 743: AX-11 Bliss- 4.0-74 P | 

HE$eoct9Re 90:63:82 YAEcHTABLLERGRECH4i2°ZA2amncnwe.052:52%° «a8 

v03-002 aceos02 Andrew C. Goldstein, 3-Dec-1982 13:55 
Add $ and _ to file names, allow long names 


v03-001 CDS0001 C. Seether 1=Jul-1982 
Don't force absolute addressing mode when declaring 
external routine LibScvt_dtb. 


ac gc0s? Andrew C. Goldstein, 10-Aug-1979 16:41 
Wild card interface changes 


A010 AC 1 Andrew C. Goldstein, 10-Oct-1978 20:03 
Previous revision history moved to F11A.REV 


SOG 


o 


oo oe el ele 
- ~~ = 
PASO 
— a a Ls 2 2 — 5 en 2 8 a = 2 4 2 8 + 8 


A0101 


oe 


>.> 


: 
A 


LIBRARY a RYSSLIORARY #1 18,L52°; 
REQUIRE ‘SRCS:FCPDEF .832'; 


: Linkages to subroutines in this module. 


LINKAGE 
L_GETCHAR = JSB : 
NOPRESERVE (5) 
GLOBAL (COUNT = 6, STRINGP = 7, FCOUNT = 8), 
LGETSTAR = JSB : 
GLOBAL (COUNT = 6, STRINGP = 7), 
L TYPE = 


JSB : 
GLOBAL (COUNT = 6, STRINGP = 7); 
: Routines in this module 


FORWARD ROUTINE 
E main routine 


SSNS SNES NENT 


SLIZPELAETELESP ORAS ISATIZLNASTELG STOLE SES BS 


MAK VAL : 

GETCRAR L_GETCHAR,  ! get RAD-50 set character 

GETSTAR L_GETSTAR, ! get star character, if any 

TY L_TYPE; ! determine type of current character 


Sz 


8 | 
-Sep- 743: AX- liss- 74 
ib atts a ae eS Pt ta 
GLOBAL ROUTINE MAKE_NAMEBLOCK (LENGTH, STRING, NAMEBLOCK) : NOVALUE # 
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FUNCTIONAL DESCRIPTION: 


This routine converts a file name string into the 
RAD-50 name block format. 


CALLing S SEQUENCE : 
-NAMEBLOCK (ARG1, ARG2, ARG3) 


INO RGA Length of 14 tri 
: ft) @ name str 
ARG2: address of file name string 


IMPLICIT poe 


NO 


ob nd ee we 


OUTPUT PARAMETERS: 
ARGS: address of file name block 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


NOU EF wt 


SIDE EFFECTS: 


wn 


ee a a el el ce el le el a el el el el el el cael 
ee ee me ee a a a ee ee ee a ee ed ed od dD 


BEGIN 
5 MAP 
NAMEBLOCK : REF BBLOCK; ! name block arg 
GLOBAL REGISTER 
COUNT = 6, haracters tapas eB in string 
40 STRINGP = : REF VECTOR C, eye). ! string pointe 
. FCOUNT = 8; ount of chars in current field 
rh LOCAL 
44 VERSION, : Be version meiner 
) » ng scan pointer 
rt BLOCKP : REF VECTOR C, wordi: ! pointer into name block 
| 
$8 EXTERNAL ROUTINE 
4 FILSCVT_DTB : ADDRESSING _MODE (GENERAL); ! decimal to binary convert 
; Initialize all the locals. 
4 CHSFILL (0, was LENGTH, .NAMEBLOCK); ! zero the entire block | 
HH STRINGP = ,STRING; i set up string pointe ! 
P = CHSFIND_CH (. LENGTH, .STRINGP, ° '); ! look for a erminat ing space 
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: Now build the type field, consisting of 1 word of 3 RAD-50 characters. 


MAK 

v04 

3 T = .P = ,STRINGP; i te count 

; ‘ ipecnsealt # NGTH : apr trin ° 
; = > use w sg ac 
a | 4 BLOCK : WAMEBLOCKENABSU_NAME):; i ge nt to name eid te in block 
3 : ; COUNT = 0; it chars in field count 
. % 1 

r } ; : Build the name field, consisting of 3 words of 3 RAD-50 characters per word. 
: 4 1 < 

: 3 i a ery 

; ' 1 ‘ J FROM 1 00 

; 1 OCKPLO = »“BLOCKPLO] ® 60 * GETCHAR (); 

: 4 11 pLock = .BLOCKP + 2; 

: 8 18 me 

: 17 116 ' Eat remaining trailing name field characters. 

: fs 1164 5 i " ° 

: 38 1108 § WHILE 1 00 

; 178 118? BEGIN 

; : 1168 CASE TYPE () FROM 0 TO 6 OF 

; 4 1170 foes 6]: EXITLOOP; 

3 ; ie INRANGE OUTRANGE): 

: 1 178 4 COUNT = .COUNT = 1; 

; (185 174 4 STRINGP = .STRINGP + 1; 

i $ 1175 END; 

4 1176 TES; 

‘| ig gf 

: 1 198 If GETSTAR () ! set wild card bits if star 
i 133 118) 8 secin 

: 198 1 ¢ NAMEBLOCK(NMBSV_WILD) = 1; 

+ 19% 1 NAMEBLOCKCNMBSV-ALLNAM) = 1; 

; 195 u , END; 

; 199 + : Pick up the name delimiter, which is either dot or end of string. 
; 199 1 

3 1 CASE TYPE () FROM 1 TO 5 OF 

: 5 1191 2.3.4]: ERR_EXIT (SS$_BADFILENAME); 

: 1198 5): BEGIN 

3 119 OUNT = .COUNT = 1; ' pick up the character 

; 5 1338 STRINGP = .STRINGP *¢ 1; 

: 1 COUTRANGE): 

3 1197 TES; 

: 1199 

3 1 

3 1 

3 1 
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Ess 


FCOUNT = 0; ! re-init chars in field count 


Big Se SS ne EL 


vou 1b-sen-1984 PO:95:92 SAE ah stk 04s 0-T8? eecses.0s2:6°% cas | 


DECR J TO 1 DO 
Biockero = .BLOCKPLO) * 40 + GETCHAR (); 


| 
H Eat remaining trailing type field characters. 
: 


mbes ~ 
ASE TYPE () FROM 0 TO 6 OF 


}: oft Has 
ae 


SIRINGP = z COUTRINGP’ + 13 
TES; 


a + 4 bk ee te te 


END; 
rate ®) ! set wild card bits if star 


| 
BEGIN 
NAMEBLOCK(NMBSV_WILD] = 1; | 
NAMEBLOCK NMBSV“ALLTYP) = 1; | 


‘ Pick up the type delimiter, which may be dot, semicolon, or end of string. 


CASE TYPE () FROM 1 TO 6 OF 
12 3,4]: ERR_EXIT (SS$_BADFILENAME); 
5°63: BEGIN 


COUNT = .COUNT = 1; ! pick up the character 
STRINGP = .STRINGP + 1; 


OUTRANGE ): . 
ree 


! If the version is not wild we and there are still characters present, 
; ; get the binary version num 


1 GerstaR 0 ' set wild card bits if star 


BEGIN 

NAMEBLOCK(NMBSV_WILD) = 1; 

cain NMBSVTALLVER) = 1; 
14 IF .COUNT GTR 0 


MEN OEGIN 
OCKP = .BLOCKP + 2: 
NOT FILSCVT_DT COUNT . S$ RINGP, VERSION) 
HEN ERR_EXIT TSS FILENAME 
If .VERSTON GTRU 32 
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A .. EXIT (SS$_BADF R); 
OE KPTEO. 16> = [VERS bay 


vO4=000 


aoe 1; 
! end of routine MAKE _NAMEBLOCK 
TITLE MAK 
‘IDEN NvOeeB00\ 
-EXTRN FILSCVT_DTB 
<PSECT S$CODE$,NOWRT,2 
OFFC ENTRY MAKE NAMEBLOCK, Save R2,R3,R4,R5,R6,R7,R8,- 
v CF mov Ptstaae R11 
sh Booey 5 a ROvAs it rio 
00 00 5 00¢ MOVES 807 (SP), #0, #60, QNAMEBLOCK 
57 86 A MOVL STRING, STRINGP 
67 06 AC A Loce 32, LENGTH, (STRINGP) 
56 51 7 ¢ SUBL3 STRINGP, P, COUNT 
. eb bs 
56 06 AC D MOVL. LENGTH, COUNT 
52 oc AC C ADDS 86 NAMEBLOCK, BLOCKP 
D4 CLRL —sFCOUNT 
} fi ROVE ; ‘ : 
4 C 00 moveuL iota. RG 
4 . 4 wualé 
62 54 A ADDUS tintee uhh (BLOCKP) 
; eile fe. goo 
er ee ee 
4 WORD -6$,- 
Sie 13-68. - 
=e 
be: 
3-63" 
56 7 7$ DECL COUNT 
si a 
) SE oe: irs 
8 oc AC 5 MOVL § NAMEBLOCK, RO 
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15 001 : 
$2 3 1 ee. f a2,  socke : 1356 
: — i 1 

000000006 a $ scvr. p18 : 

fb i 88 it oh 
0818 6 238 con ; 1258 
OOOO7FFF BF i D1 124 248: CAPA VERSION, #32767 + 1259 
0820 oF 1 CHMU «=-« #2080 + 1260 

1 RET ; 
62 6E 80 1 258: MOVW VERSION, (BLOCKP) : 1261 
135 26$: RET + 1266 

: Routine Size: 310 bytes, Routine Base: S$CODES + 0000 
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ROUTINE GETCHAR : L_GETCHAR = 


‘oe 


FUNCTIONAL DESCRIPTION: 


{ats routine cetyens 


cn, HE 


INPUT PARAMETERS: 
NONE 


IMPLICIT Bae 
STRINGP: str 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE 


VAL 
character code 
SIDE EFFECTS: 

COUN 


BEGIN 


REGISTER 
CHAR = 5; 


Se 


-32 v4.0-74 Pp 
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of the next character in the 
If it is not, or end of 


ore t stri 
string has reached, it returns zero. 


T: Panis sete omens in string 
n 
FCOUNT: chars Bet rina +0 field 


T decremented and STRINGP advanced if legal character. 


! character in process 


R 
, -. §. ! characters aay ie re Bl in string 
RINGP = : REF VECTOR C, Byte). : te 
= 8; ount of chore in current field 


; Get the next character from the string and dispatch in its type. 


CHAR = .STRINGP(O); 
CASE TYPE () FROM O TO 8 OF 


5 6): 
CHAR = 0; 


! end, dot, or semicolon 
' upper case alpha 


/ 
a | 
MAK 16-Sep- 143: VAX-11 Bliss-32 V4.0-74 P 0 
v04 oep=198e 19:90:36 DT SkSVMSMASTERSE TiK.SRCIMAKNMB.B32;1°%° (4D, 
; 1 HAR = .CHAR = ‘A’ ¢ 1; ! convert to RAD-50 code | 
3 1 Out =. Te 1; : vance to next character 
3 inep = ,STRINGP + 1; 
; ! F COUN = .FCOUNT + 1; ! count character in field | 
3 : neal ! lower case alpha | 
; 1 HAR = CHAR = ‘a’ ¢ 1; ' convert to RAD-50 code 
3 1 oust = ,COUNT = 1; ! advance to next character 
3 1 T i = ,STRINGP + 1; 
3 COUN = .FCOUNT + 1; ! count character in field 
; 1 (3): —- ! numeric 
3 1 BEGIN 
; 1 CHAR = .CHAR = ‘O° + 30; ' convert to RAD-50 code 
3 1 COUNT = .COUNT = 1; ! advance to next character 
FY 1 STRINGP = ,STRINGP ¢ 1; 
3 : ccoaet = .FCOUNT ¢ 1; ! count character in field 
; 1 (71: - ! dollar sign 
3 1 BEGIN 
3 1 CHAR = «7; ' convert to RAD-50 code 
3 1 Sore = COUNT - 1; ' advance to next character 
; 1 STRINGP = ,STRINGP + 1; 
3 : AS ad = .FCOUNT ¢ 1; ! count character in field 
; 1 (8): - ! underscore 
3 1 BEGIN 
3 1 CHAR = 29; !' convert to RAD-50 code 
; 1 COUNT = .COUNT = 1; i advance to next character 
5 1 STRINGP = .STRINGP + 1; 
3 : Ao T = .FCOUNT ¢ 1; ! count character in field 
; 1 (4): —- ! star = legal as only char in field 
F4 1 BEGIN 
3 1 CHAR = 0; 
3 ; eee NEQ 0 THEN ERR_EXIT (SS$_BADFILENAME); 
; tes; 
; RETURN .CHAR; 
; 1 END; ! end of routine GETCHAR 


55 7 3 GETCHAR:MOVZBL (STRINGP), CHAR : 1316 
Vv BSBwW TYPE ; 1518 
CF CASEL RO, #0, #8 3 
1$: - WORD ¢z-13°- 3 
$-1$,- 3 
4$-1$,- ; | 
5$-1$,- Ps | 
9$-1$,- 3 
2$-1$,- ; 
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35 4 28 CLAL CHAR : 1 
1 0001 BRB 0$ : 
55 co i 3$: BOVAB ee CHAR : 
55 AO OA 6 48: ROVAS specks). CHAR : 
55 13 f 200 . 5$: o> £18. CHAR : } 
55 jf 00 00031 68 ROVL a7. CHAR i 
55 D 09 tf 7 ROVL #29. CHAR ; 
5D 000 INCL = STRINGP 31 
4 oe . 
D4 00041 98 CLRL CHAR +1 
se Gk igen ‘ 
0818 8F BF 0947 CHM #2072 : 
50 55 00 004C 108 MOVL CHAR, RO + 1364 
05 0004F RSB : 1366 
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1407 


COUNT 


56 DS 00000 GETSTAR:TSTL 


; Routine Size: 


20 bytes o 


Routine Base: 


i 


DECL COUNT + 1410 

INCL $TRINGP + 1411 

; MOVL #1, RO : 1409) 

50 04 00011 1$: CLRL =. RO t 1407 
RSB 1417 


05 00013 


SCODES + 0186 


| 
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18-Sep-1984 93:95:32 UEcSUmGhASTER SEY Tins che JMAKNMB.B32;1 


2 


] 
. = 
; 6 141 ROUTINE TYPE : L_TYPE 
+ ¢ 1420 | 144 
; 1065 2 | ONAL PTION: 
; 2 DESCRI ds 
: 4 16 : ese routine determines the type code of the current characte 
‘ 1? 2 } ; in the string. ‘ 
. 4 i 
: 14 ‘ 1} : 
; SEQUENCE : 
; 2 1e5— 1 | CALLING SEOUE 
: 1699 1: 
; 2 1680 1 | INPUT PARAMETERS 
3 645 } NONE 
; re te ae tilt | amber of characters left in string 
; res i? 5 : STRINGP: string pointer 
+ 64 : 
: 14 1! ns 
: oa 12h | | OUP ene METERS 
. € 
H 14 1} : 
i 438 1440 1 | IMPLICIT ouTPuTS 
> 455 NONE 
: 1442 1} 
; ¢ i ROUTINE VALUE: 
rt ae i ee acter: 
; ¢ i ' er. Se ~y- non-RAD-50 
i 4 9 seen 1 i : upper case alpha 
; 460 re 1 : lower case alpha 
i 461 \ee i i ¢; numer ic 
4 i : ° 
i 46 1269 1? 4: ate 
; 486 ieey 3: enicoton 
+ 665 1451 1: $: ; 
: a ti he 
; 46s 1488 4 SIDE EFFECTS: 
i 8 1456 4 | NONE 
a ae 
if 133 J cecum 
3 47% | 
1463 GISTER ters remaining in str 
; cre 1468 eee COUNT = 9° —: REF VECTOR CoBYTES: | string pointer : | 
i | : e, second is | 
79 146s First is low character of yn 
a’ | Fperector_ weten ey! table index of the matching 
: é 1 1467 high character. Type is 
| , ® 3 TOR BYTE e 
; 12 - ‘Aade.;$_") : VEC TE: | 
4 ? § i BIND LOWCHAR = ust it errr : * #7290" :$7") : VECTOR C{BYTE | 
; ‘ 179 nee: Seti he type. Else search the tables. | 
0 as the . 
: : 122 ! If the string is empty return 


=z 
> 
nx 
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Sep-1 VAX=11 Bliss-32_V4.0-762 5 
1$-se0-1944 99: $3; $2 DISKSVMSMASTER:CF11X.SRCIMAKNMB.B32; 1 fage 3 
; 6 14 ' 
3 6 14 | 
3 4 16 IF .COUNT LEQ 0 THEN RETURN 0; 
5 6 14 INCR ! FROM 1 
; 4 14 i STR rast «LOWCHARL. aS | 
: 2 168 > MR DL. IN 2*tEdu -HIGHCHARL 1) 
3; 6 14 | 
; $38 1? : ere hepa ! other characters are illegal 
; 14 | 
3 309 14 END; ! end of routine TYPE 
| 
00 0019A P.AAA: -BYTE 0 ; 
SF 246 38 2€ 2A 30 61 41 001 \Aa0®. ;$_\ : 
O1A3 P.AAB: ‘BYTE : | 
SF 246 3B 2E 2A 39 7A SA OO1AG ASCII \229*.;$_\ ; | 
LOWCHAR= P.AAA 
HIGHCHAR= P.AAB 
“6 D5 06000 TYPE: STL COUNT ; ee 
1a 15 00002 BLEQ $ : | 
50 01 D0 00004 vi, I > 1480 
E2 AF4O 67 91 00007 1$: CMPB  =s- (STRINGP), LOWCHARTI) ; 
07 1F 0000 BLSSU : 
E4 AF4O 7 91 000 CMPB = (STRINGP), HIGHCHARLI) + 1481 
18 001 BLEQU 4$ F 
EE 0 F3 00015 2$ AOBLEQ #8 J. 1 + 1480 
0818 &F BF 0019 CHMU #207 > 1484 
5 0001D RSB ; 
50 D4 OOOIE 38: CLRL RO : 1487, 
05 00020 4$: RSB 5 
3 Routine Size: 33 bytes, Koutine Base: SCODES + O1AC | 
i | 
1289 
1490 d EL UDOM 
PSECT SUMMARY 
Bytes Attributes 


461 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


iPseortgte 99:45:42 WMT SLintcdz yes0-742, 8. tage Ie 


| 


sz 


Library Statistics 


; File Totel Lbeced” Percent Aateed = ime | 
;  ,$2558DUA28:(SYSL18IL18.132;1 18619 25 0 1000 00:02.0 | 
| 
| 
| 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:MAKNMB/OBJ=OBJ$:MAKNMB MSRC$:MAKNMB/UPDATE=(ENHS:MAKNMB) 


; Size: 443 ¢ + 18 data bytes 
; Run Time 715.7 

; Slasced” Time: 33.1 

3 Lonenes/CPu-Rigs 21183 

; Memor Tavt 176 pages 

; Compi ation Complete 


 Limes/CPU Min: 5694 
| 
| 
| 
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